home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 February / macpower199702.bin / AMUG / Programming_7 / LogoMation 1.1.3.sit / LogoMation 1.1.3 ƒ / Examples / Towers of Hanoi / Towers of Hanoi
Encoding:
Text File  |  1996-10-25  |  756 b   |  29 lines  |  [UVtx/UVtl]
  1. // This program provides a visualization of the old Towers
  2. // of Hanoi problem.  It demonstrates recursion, and the
  3. // use of library files.  The library functions are in a
  4. // file "Towers of Hanoi.lib", in the "Lib" folder.
  5.  
  6. Library ":Lib:Towers of Hanoi.lib"
  7.  
  8. //        the main program         //
  9. /////////////////////////////////////
  10.  
  11. doPause  =    0        // pause after each move, wait for CR
  12. speed1   =  800
  13. speed2   = 1600
  14. thePause =  0.1
  15. N = GetNumberOfTowers()
  16. SetUp()
  17.  
  18. Move(N, 1, 3, 2)
  19.  
  20.  
  21. //       the recursive Move        //
  22. /////////////////////////////////////
  23. Function Move(n, from, to, using)
  24.     If n = 1
  25.         MoveOne(1,from,to)
  26.     Else
  27.         Move(n-1, from, using, to)
  28.         MoveOne(n,from, to)
  29.         Move(n-1, using, to, from)